fork(1) download

copy

Const HKEY_LOCAL_MACHINE = &H80000002
 
WinKey = GetWinKey
strComputer="."
 
 
OfficeKeys = GetOfficeKey("10.0") & GetOfficeKey("11.0") & GetOfficeKey("12.0") & GetOfficeKey("14.0") & GetOfficeKey("15.0")
 
If Msgbox(WinKey & vbnewline & vbnewline & OfficeKeys & vbnewline & "Save All Keys to ProductKeys.txt?", vbyesno, "GetProductKeys.VBS by Foolish IT") = vbyes then
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colSystem = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
    'Set objTextFile1 = objFSO.CreateTextFile("ProductKeys.txt" ,True)
    Set objTextFile = objFSO.OpenTextFile("_ProductKeys.txt",8) 
   For Each objComputer in colSystem
    objTextFile.WriteLine "Nazwa: " & objComputer.Name 
   Next 
   objTextFile.WriteLine ""
   objTextFile.WriteLine WinKey & vbnewline & vbnewline & OfficeKeys 
    objTextFile.WriteLine "---------------------------------------------------------------------------------------------------------------------------------"
    objTextFile.Close
end if
 
Function GetOfficeKey(sVer)
    On Error Resume Next
    Dim arrSubKeys
    Set wshShell = WScript.CreateObject( "WScript.Shell" )
    sBit = wshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
    if sBit <> "%ProgramFiles(x86)%" then
   sBit = "Software\wow6432node"
    else
   sBit = "Software"
    end if
    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    objReg.EnumKey HKEY_LOCAL_MACHINE, sBit & "\Microsoft\Office\" & sVer & "\Registration", arrSubKeys
    Set objReg = Nothing
    if IsNull(arrSubKeys) = False then
        For Each Subkey in arrSubKeys
       if lenb(other) < 1 then other = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")
       if ucase(right(SubKey, 7)) = "0FF1CE}" then
                Set wshshell = CreateObject("WScript.Shell")
           key = ConvertToKey(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\DigitalProductID"))
      oem = ucase(mid(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductID"), 7, 3))
        edition = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")
      if err.number <> 0 then 
          edition = other
                   err.clear
      end if
           Set wshshell = Nothing
            if oem <> "OEM" then oem = "Retail"
           if lenb(final) > 1 then
          final = final & vbnewline & final
             else
               final = edition & " " & oem & ":  " & key 
                end if
       end if
        Next
   GetOfficeKey = final & vbnewline
    End If
End Function
 
Function GetWinKey()
    Set wshshell = CreateObject("WScript.Shell")
    edition = wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
    oem = ucase(mid(wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID"), 7, 3))
    key = GetKey("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")
    set wshshell = Nothing
    if oem <> "OEM" then oem = "Retail"
    GetWinKey = edition & " " & oem & ":  " & key
End Function
 
Function GetKey(sReg)
    Set wshshell = CreateObject("WScript.Shell")
    GetKey = ConvertToKey(wshshell.RegRead(sReg))
    Set wshshell = Nothing
End Function
 
Function ConvertToKey(key)
    Const KeyOffset = 52
    i = 28
    Chars = "BCDFGHJKMPQRTVWXY2346789"
    Do
        Cur = 0
        x = 14
        Do
            Cur = Cur * 256
            Cur = key(x + KeyOffset) + Cur
            key(x + KeyOffset) = (Cur \ 24) And 255
            Cur = Cur Mod 24
            x = x - 1
        Loop While x >= 0
        i = i - 1
        KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
        If (((29 - i) Mod 6) = 0) And (i <> -1) Then
            i = i - 1
            KeyOutput = "-" & KeyOutput
        End If
    Loop While i >= 0
    ConvertToKey = KeyOutput
End Function

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/ZMbaKM/prog.vb (1,7) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (3,7) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (4,12) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (7,11) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (9,3) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (10,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (11,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (12,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (14,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (15,7) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (16,16) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (17,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (18,15) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (19,15) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (20,16) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (21,16) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (22,7) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (24,9) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (25,7) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (26,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (27,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (28,9) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (29,7) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (30,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (31,9) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (32,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (33,11) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (34,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (35,11) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (36,8) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (37,7) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (38,12) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (39,10) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (40,10) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (41,20) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (42,15) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (43,10) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (44,16) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (45,9) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (46,18) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (47,23) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (48,13) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (49,15) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (50,15) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (51,14) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (52,16) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (53,18) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (54,21) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (55,23) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (56,14) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (57,13) : Error VBNC30203: Not valid as identifier.
/home/ZMbaKM/prog.vb (57,13) : Error VBNC30041: Too many errors.
Exception of type 'vbnc.TooManyErrorsException' was thrown.
  at vbnc.Report.ShowMessage (Boolean SaveIt, vbnc.Message Message) [0x00080] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:342 
  at vbnc.Report.ShowMessage (Messages Message, Span Location, System.String[] Parameters) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:259 
  at vbnc.Report.ShowMessage (Messages Message, System.String[] Parameters) [0x00054] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Report.vb:269 
  at vbnc.Compiler.Compile () [0x005a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:651 
  at vbnc.Compiler.Compile (System.String[] CommandLine) [0x00057] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:279 
  at vbnc.Main.Main (System.String[] CmdArgs) [0x0000f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Main.vb:55 
Failed compilation took 00:00:00.5686880

Standard output is empty