daily pastebin goal
56%
SHARE
TWEET

PFDirHelper

CryptoJones Jan 13th, 2018 (edited) 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Module1
  2.  
  3.     Sub Main()
  4.         'Binary at http://atbash.blob.core.windows.net/downloads/PFDirHelper.exe
  5.         'Dim DefaultPath As String
  6.  
  7.         If Environment.Is64BitOperatingSystem Then
  8.             Console.WriteLine("I am a 64-bit Operating Systems.")
  9.         Else
  10.             Console.WriteLine("I am not a 64-bit Operating Systems.")
  11.         End If
  12.  
  13.         If Environment.Is64BitProcess Then
  14.             Console.WriteLine("I am a 64-bit Process.")
  15.         Else
  16.             Console.WriteLine("I am not a 64-bit Process.")
  17.         End If
  18.  
  19.         Dim  fullPath = Environment.GetEnvironmentVariable("ProgramFiles")
  20.  
  21.         Console.WriteLine("My program files directory is: " + fullPath)
  22.  
  23.         Console.ReadLine()
  24.  
  25.     End Sub
  26.  
  27. End Module
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top