#Include <GUIConstants.au3>
Dim $INI, $POS, $IP, $URLS, $URL, $I, $IPTMP, $FS, $FILE, $LINE, $LINE1

Global $Orgn1
Global $Orgn2
Global $Orgn3
Global $Orgn4

$c = @HomeDrive & "\"
$win2k = @OSVersion

If $win2k = "WIN_NT4" Then
   
   $color = "0xc6c6c6"
   $color1 = "0xc6c6c6"
   $color2 = "0xc6c6c6"
   $color3 = "0xc6c6c6"
   
ElseIf $win2k = "WIN_2000" Then
   
   $color = "0xd6d3ce"
   $color1 = "0xd6d3ce"
   $color2 = "0xd6d3ce"
   $color3 = "0xd6d3ce"
   
Else
   
   $color = "0xfbfbfc"
   $color1 = "0xf5f6f3"
   $color2 = "0xf6f5f1"
   $color3 = "0xece9d8"
EndIf


WinClose("PC-Info", "")

FileInstall("C:\pic.jpg", $c & "pic1.jpg")
FileInstall("C:\PC.jpg", $c & "PC1.jpg")

;---------------------------------------------------------------
;                   Find WAN iP-adresse
;---------------------------------------------------------------

$INI = $c & "myip.ini"

If FileExists($INI) = 0 Then
   IniWrite($INI, "URL", "1", "dynupdate.no-ip.com")
   IniWrite($INI, "URL", "2", "www.bpftpserver.com")
   IniWrite($INI, "URL", "3", "www.minasithil.org")
   IniWrite($INI, "URL", "URLS", "3")
   
EndIf

$POS = 0
$IP = 0
$URLS = IniRead($INI, "URL", "URLS", "")




For $I = 1 To $URLS
   FileDelete($c & $POS + 1 & ".htm")
Next

While $POS < $URLS
   
   FileDelete($c & $POS - 1 & ".htm")
   $POS = $POS + 1
   $IPTMP = $c & $POS & ".htm"
   $URL = IniRead($INI, "URL", $POS, "")
   $IP = URLDownloadToFile ("http://" & $URL & "/ip.php", $IPTMP)
   $FS = FileGetSize($IPTMP)
   
   
   If FileExists($IPTMP) = 0 Then ContinueLoop
   If $FS > 16 Then
      ContinueLoop
   Else
      If $FS < 8 Then ContinueLoop
   EndIf
   If $FS <= 16 Then ExitLoop
   
Wend
$FILE = FileOpen($IPTMP, 0)

$LINE = FileReadLine($FILE)


If $FILE = -1 Then
   $line = "Error when looking up IP. Maybe you're offline?"
EndIf


FileClose($FILE)
FileDelete($IPTMP)
FileDelete($INI)

;---------------------------------------------------------------
;                       Windows Product Key
;---------------------------------------------------------------

Dim $Bin
$Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID")

Func DecodeProductKey($BinaryDPID)
   Local $bKey[15]
   Local $sKey[29]
   Local $Digits[24]
   Local $Value = 0
   Local $hi = 0
   Local $n = 0
   Local $i = 0
   Local $dlen = 29
   Local $slen = 15
   Local $Result
   
   $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "")
   
   $binaryDPID = StringMid($binaryDPID, 105, 30)
   
   For $i = 1 To 29 Step 2
      $bKey[Int($i / 2) ] = Dec(StringMid($binaryDPID, $i, 2))
   Next
   
   For $i = $dlen - 1 To 0 Step - 1
      If Mod( ($i + 1), 6) = 0 Then
         $sKey[$i] = "-"
      Else
         $hi = 0
         For $n = $slen - 1 To 0 Step - 1
            $Value = BitOR(BitShift($hi, -8), $bKey[$n])
            $bKey[$n] = Int($Value / 24)
            $hi = Mod($Value, 24)
         Next
         $sKey[$i] = $Digits[$hi + 1]
      EndIf
      
   Next
   For $i = 0 To 28
      $Result = $Result & $sKey[$i]
   Next
   
   Return $Result
EndFunc

;-------------------------------------------------------------

;                         Script start

;-------------------------------------------------------------


$primaryGui = GUICreate("PC-Info", 405, 490)

GUISetFont(9, 300)

$tab = GUICtrlCreateTab(5, 5, 398, 462)
$knap = GUICtrlCreateButton("Print", 335, 2, 67, 23)


$tab0 = GUICtrlCreateTabItem("My computer")

;$n=GUICtrlCreatePic("C:\pic1.jpg",100,250, 1, 1)
$n = GUICtrlSetPos($n, 20, 242, 364, 212)

GUICtrlCreateGroup("Information", 16, 30, 373, 260)
GUICtrlSetBkColor(-1, $color)



GUICtrlCreateLabel("Computername", 30, 60, 90, 15)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("Operating System", 30, 85, 100, 15)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("Service Pack", 30, 110, 90, 15,)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("LAN IP-address", 30, 135, 90, 15,)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("WAN IP-address", 30, 160, 95, 15,)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("Logged in as", 30, 184, 90, 15,)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("Login domain", 30, 209, 90, 15,)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("Windows CD-Key", 30, 233, 97, 15,)
GUICtrlSetBkColor(-1, $color)
$newkey_btn = GUICtrlCreateButton("Change Key", 30, 257, 90, 22,)
GUICtrlSetBkColor(-1, $color)

GUICtrlCreateInput(@ComputerName, 130, 58, 250, 20, $WS_DISABLED)
GUICtrlCreateInput(@OSVersion, 130, 83, 250, 20, $WS_DISABLED)
GUICtrlCreateInput(@OSServicePack, 130, 108, 250, 20, $WS_DISABLED)
GUICtrlCreateInput(@IPAddress1, 130, 133, 250, 20, $WS_DISABLED)
GUICtrlCreateInput($Line, 130, 158, 250, 20, $WS_DISABLED)
GUICtrlCreateInput(@UserName, 130, 183, 250, 20, $WS_DISABLED)
GUICtrlCreateInput(@LogonDomain, 130, 208, 250, 20, $WS_DISABLED)
GUICtrlCreateInput(DecodeProductKey($bin), 130, 233, 250, 20, $WS_DISABLED)
$newkey = GUICtrlCreateInput("Type the new Windows CD-key here...", 130, 258, 250, 20)


$tab1 = GUICtrlCreateTabItem("Specifications")

$knap1 = GUICtrlCreateButton("PC1.jpg", 30, 380, 343, 70)


GUICtrlCreateGroup("Information", 16, 30, 373, 429)
GUICtrlSetBkColor(-1, $color)


$drev = DriveGetDrive("fixed")

$Ram = MemGetStats()
$Mem = $ram[1] / 1024 + 1
$mem1 = Round($mem, 0)

$Drive1 = DriveSpaceTotal($Drev[1])
$label1 = DriveGetLabel($Drev[1])
$Drivespace1 = DriveSpaceFree($Drev[1])
$Space = $Drivespace1 / 1024
$Free1 = Round($Space, 2)
$var1 = $Drive1 / 1024
$Orgn1 = Round($var1, 2)



;-----------------------------------------------------------------------

If $drev[0] > 1 Then
   
   $label2 = DriveGetLabel($Drev[2])
   $Drivespace2 = DriveSpaceFree($Drev[2])
   $Space = $Drivespace2 / 1024
   $Free2 = Round($Space, 2)
   $Drive2 = DriveSpaceTotal($Drev[2])
   $var2 = $Drive2 / 1024
   $Orgn2 = Round($var2, 2)
   GUICtrlCreateLabel("Drive2 " & " - (" & $drev[2] & ")", 30, 160, 90, 15,)
   GUICtrlSetBkColor(-1, $color1)
   GUICtrlCreateInput($Orgn2 & " GB" & "  - ( Free space - " & $Free2 & " GB )", 105, 158, 275, 20, $WS_DISABLED)
   GUICtrlSetBkColor(-1, $color1)
   
   
Else
   GUICtrlCreateInput("You don't have 2 harddrives or partitions", 105, 158, 275, 20, $WS_DISABLED)
   GUICtrlSetBkColor(-1, $color1)
   GUICtrlCreateLabel("Drive2 ", 30, 160, 70, 15,)
   GUICtrlSetBkColor(-1, $color1)
EndIf


If $drev[0] > 2 Then
   
   $label3 = DriveGetLabel($Drev[3])
   $Drivespace3 = DriveSpaceFree($Drev[3])
   $Space = $Drivespace3 / 1024
   $Free3 = Round($Space, 2)
   $Drive3 = DriveSpaceTotal($Drev[3])
   $var3 = $Drive3 / 1024
   $Orgn3 = Round($var3, 3)
   GUICtrlCreateLabel("Drive3 " & " - (" & $drev[3] & ")", 30, 185, 90, 15,)
   GUICtrlSetBkColor(-1, $color1)
   GUICtrlCreateInput($Orgn3 & " GB" & "  - ( Free space - " & $Free3 & " GB )", 105, 183, 275, 20, $WS_DISABLED)
   GUICtrlSetBkColor(-1, $color1)
Else
   
   GUICtrlCreateInput("You don't have 3 harddrives or partitions", 105, 183, 275, 20, $WS_DISABLED)
   GUICtrlSetBkColor(-1, $color1)
   GUICtrlCreateLabel("Drive3 ", 30, 185, 70, 15,)
   GUICtrlSetBkColor(-1, $color1)
EndIf


If $drev[0] > 3 Then
   
   $label4 = DriveGetLabel($Drev[4])
   $Drivespace4 = DriveSpaceFree($Drev[4])
   $Space = $Drivespace4 / 1024
   $Free4 = Round($Space, 2)
   $Drive4 = DriveSpaceTotal($Drev[4])
   $var4 = $Drive4 / 1024
   $Orgn4 = Round($var4, 3)
   GUICtrlCreateLabel("Drive4 " & " - (" & $drev[4] & ")", 30, 210, 90, 15,)
   GUICtrlSetBkColor(-1, $color1)
   GUICtrlCreateInput($Orgn4 & " GB" & "  - ( Free space - " & $Free4 & " GB )", 105, 208, 275, 20, $WS_DISABLED)
   GUICtrlSetBkColor(-1, $color1)
Else
   
   GUICtrlCreateInput("You don't have 4 harddrives or partitions", 105, 208, 275, 20, $WS_DISABLED)
   GUICtrlSetBkColor(-1, $color1)
   GUICtrlCreateLabel("Drive4 ", 30, 210, 70, 15,)
   GUICtrlSetBkColor(-1, $color1)
EndIf


;------------------------------------------------------------------------



GUICtrlCreateLabel("Processor", 30, 60, 90, 15)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("RAM", 30, 85, 90, 15)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("Video card", 30, 110, 90, 15)
GUICtrlSetBkColor(-1, $color)
GUICtrlCreateLabel("Drive1 " & " - (" & $drev[1] & ")", 30, 135, 90, 15,)
GUICtrlSetBkColor(-1, $color1)


$cpu0 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
$cpu1 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "processorNameString")
; ***[ BLIVER IKKE BRUGT ]***  $cpu2 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier")
$gfx = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc")


$Lprint1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\", 1)
$Lprint2 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\", 2)


$stringtjek = StringIsASCII($Lprint1)
If $stringtjek = 0 Then
   GUICtrlCreateInput("No printer installed", 105, 254, 275, 20, $WS_DISABLED)
Else
   GUICtrlCreateInput($Lprint1, 105, 254, 275, 20, $WS_DISABLED)
EndIf


$stringtjek = StringIsASCII($Lprint2)
If $stringtjek = 0 Then
   GUICtrlCreateInput("No printer installed", 105, 279, 275, 20, $WS_DISABLED)
Else
   GUICtrlCreateInput($Lprint2, 105, 279, 275, 20, $WS_DISABLED)
EndIf



$serv = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers", 1)

$NetPrint1 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers\" & $serv & "\printers", 1)
$NetPrint2 = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Providers\LanMan Print Services\Servers\" & $serv & "\printers", 2)

$stringtjek = StringIsASCII($NetPrint1)
If $stringtjek = 0 Then
   GUICtrlCreateInput("No printer installed", 105, 329, 275, 20, $WS_DISABLED)
Else
   GUICtrlCreateInput($NetPrint1, 105, 329, 275, 20, $WS_DISABLED)
EndIf

$stringtjek = StringIsASCII($Netprint2)
If $stringtjek = 0 Then
   GUICtrlCreateInput("No printer installed", 105, 354, 275, 20, $WS_DISABLED)
Else
   GUICtrlCreateInput($NetPrint2, 105, 354, 275, 20, $WS_DISABLED)
EndIf




GUICtrlCreateInput($cpu0 & " Mhz" & " - " & $cpu1, 105, 58, 275, 20, $WS_DISABLED)
GUICtrlCreateInput($mem1 & " MB", 105, 83, 275, 20, $WS_DISABLED)
GUICtrlCreateInput($gfx & "", 105, 108, 275, 20, $WS_DISABLED)
GUICtrlCreateInput($Orgn1 & " GB" & "  - ( Free space - " & $Free1 & " GB )", 105, 133, 275, 20, $WS_DISABLED)



GUICtrlCreateLabel("Printer1", 30, 256, 70, 15)
GUICtrlSetBkColor(-1, $color2)
GUICtrlCreateLabel("Printer2", 30, 281, 70, 15)
GUICtrlSetBkColor(-1, $color2)
GUICtrlCreateLabel("Netprinter1", 30, 331, 70, 15)
GUICtrlSetBkColor(-1, $color2)
GUICtrlCreateLabel("Netprinter2", 30, 356, 70, 15)
GUICtrlSetBkColor(-1, $color2)

GUICtrlCreateLabel("Local printers", 162, 235, 90, 15)
GUICtrlSetBkColor(-1, $color2)
GUICtrlCreateLabel("Network printers", 155, 310, 100, 15)
GUICtrlSetBkColor(-1, $color2)

GUICtrlSetState(0, $GUI_SHOW)
GUISetState()

GUICtrlCreateLabel("Version 1.4", 330, 470, 70, 15)
GUICtrlSetBkColor(-1, $color3)
GUICtrlCreateLabel("Made by Lasse Offt", 10, 470, 140, 15)
GUICtrlSetBkColor(-1, $color3)
GUISetState()

;/////// SECONDARY WINDOW ///////
$SecondaryGui = GUICreate("Change Your Windows Key", 270, 150)
      
GUICtrlCreateLabel("WARNING", 90, 13, 100, 20)
GUICtrlSetFont(-1, 14, 400, 4, "Comic Sans MS")
      
GUICtrlCreateLabel("Changing your Windows CD-Key is on your own risk, i will not take any responsebility for any damage caused by this act! ", 10, 45, 250, 50)
GUICtrlCreateLabel("Are you sure?", 10, 90, 70, 15)
      
$key_yes = GUICtrlCreateButton("YES", 30, 115, 90, 22)
$key_no = GUICtrlCreateButton("Cancel", 150, 115, 90, 22)  
GUISetState(@SW_HIDE) ; this window waits in state hidden


TrayTip("Oplysning", "Press the Print button at the upper right corner of the program, to print out your information.", 5, 1)
$website = "http://www.ige.dk"

While 1
   
   $msg_array = GUIGetMsg(1)
   $msg = $msg_array[0] ; Events or ID
   $winActive = $msg_array[1] ; window's handle
   
   ;/// Small changes/additions
   If $msg = $newkey_btn Then     
      GUISwitch($SecondaryGui)
      GUISetState()
   EndIf
   
   If ($msg = $GUI_EVENT_CLOSE OR $msg = $key_no) AND $winActive =  $secondaryGui Then
      GUISetState(@SW_HIDE)
      GUISwitch($primaryGui)
   EndIf
      
   If $msg = $GUI_EVENT_CLOSE AND $winActive =  $primaryGui Then
      FileDelete($c & "pic1.jpg")
      FileDelete($c & "PC1.jpg")
      ExitLoop
   EndIf
    
   If $msg = $knap1 Then
      Run('explorer "' & $website & '"')
   EndIf
   
   If $msg = $knap Then
      $svar = MsgBox(4, "Information", "Do you want PC-Info to create and save a text-document with your informations in it on your desktop?")
      
      If $svar = 6 Then
         
         If FileExists(@DesktopDir & "\System Information.txt") Then
            FileDelete(@DesktopDir & "\System Information.txt")
            
            
            
            FileWriteLine(@DesktopDir & "\System Information.txt", "                                PC-Info version 1.4")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            
            
            FileWriteLine(@DesktopDir & "\System Information.txt", "Computername:                   " & @ComputerName)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Operating system:               " & @OSVersion)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Servicepack:                    " & @OSServicePack)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "LAN IP-address:                 " & @IPAddress1)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "WAN IP-address:                 " & $Line)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Logged in as:                   " & @UserName)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Login domain:                   " & @LogonDomain)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Processor-speed:                " & $cpu0 & " Mhz")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Amount of RAM:                  " & $mem1 & " MB")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Video card:                     " & $gfx)
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "Harddisk 1:                     " & $Drev[1] & "  " & $Orgn1 & " GB i alt")
            
            If $drev[0] > 1 Then
               FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 2:                    " & $Drev[2] & "  " & $Orgn2 & " GB i alt")
               
            Else
               FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 2:                    You don't have 2 harddrives or partitions")
               
            EndIf
            If $drev[0] > 2 Then
               FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 3:                    " & $Drev[3] & "  " & $Orgn3 & " GB i alt")
               
            Else
               FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 3:                    You don't have 2 harddrives or partitions")
            EndIf
            
            If $drev[0] > 3 Then
               FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 4:                    " & $Drev[4] & "  " & $Orgn3 & " GB i alt")
               FileWriteLine(@DesktopDir & "\System Information.txt", "")
               FileWriteLine(@DesktopDir & "\System Information.txt", "")
            Else
               FileWriteLine(@DesktopDir & "\System Information.txt", "Harddrive 4:                    You don't have 2 harddrives or partitions")
               FileWriteLine(@DesktopDir & "\System Information.txt", "")
               FileWriteLine(@DesktopDir & "\System Information.txt", "")
            EndIf
            
         EndIf
         
         $stringtjek = StringIsASCII($Lprint1)
         If $stringtjek = 1 Then
            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer1:                 " & $Lprint1)
            
         Else
            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer1:                 No printer installed")
            
         EndIf
         
         $stringtjek = StringIsASCII($Lprint2)
         If $stringtjek = 1 Then
            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer2:                 " & $Lprint2)
            
         Else
            FileWriteLine(@DesktopDir & "\System Information.txt", "Local printer2:                 No printer installed")
            
         EndIf
         
         
         $stringtjek = StringIsASCII($NetPrint1)
         If $stringtjek = 1 Then
            FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer1:              " & $Netprint1)
            
         Else
            FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer1:              No printer installed")
            
         EndIf
         
         $stringtjek = StringIsASCII($NetPrint2)
         If $stringtjek = 1 Then
            FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer2:              " & $Netprint2)
            
         Else
            FileWriteLine(@DesktopDir & "\System Information.txt", "Network printer2:              No printer installed")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
            FileWriteLine(@DesktopDir & "\System Information.txt", "")
         EndIf
         
         #cs
            FileWriteLine(@desktopdir & "\System Information.txt","Office-version:                 _________________________")
            FileWriteLine(@desktopdir & "\System Information.txt","")
            FileWriteLine(@desktopdir & "\System Information.txt","Forbindelse (ADSL/ISDN):        _________________________")
            FileWriteLine(@desktopdir & "\System Information.txt","")
            FileWriteLine(@desktopdir & "\System Information.txt","Bærbar / stationær PC:          _________________________")
            FileWriteLine(@desktopdir & "\System Information.txt","")
            FileWriteLine(@desktopdir & "\System Information.txt","")
            FileWriteLine(@desktopdir & "\System Information.txt","")
            FileWriteLine(@desktopdir & "\System Information.txt","Navn _______________________________    Dato ____________ ")
         #ce
         
         MsgBox(0, "Information", "You can now print out your informations by double clicking at the 'System Information' document at your desktop.")
         
      EndIf
   EndIf
   
Wend