Advertisement
Guest User

Untitled

a guest
Aug 19th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. strComputer := "."
  2. objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2")
  3. colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum
  4. While colSettings[objOSItem]
  5. {
  6. Key := objOSItem.SerialNumber
  7. }
  8. URLDownloadToFile, https://drive.google.com/uc?authuser=0&id=1FQ_6NboO9a6yPe5pbWtHpZhQldKh-c2F&export=download, %A_Temp%\privyazka.ini
  9. IniRead, keys, %A_Temp%\privyazka.ini, users, userkeys
  10. if (RegExMatch(keys, key))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement