andee_damon

Member
  • Content count

    3
  • Joined

  • Last visited

Community Reputation

0 Neutral

About andee_damon

  1. Hi Sin! yes, I still want that code, can you post it here? or you can send me an email? I added the Win7 line to the 1.2c version, but I haven't test it yet. Andee
  2. Thanks very much cluberti! I'll try that
  3. Hi anyone knows how ktool can be recognized by windows seven? P.S.: Hi Sin, can you send me the last code you have? I can't PM you. I Think I found the part of the code to include Windows Seven but I'm not sure: line 175: ;done Func ReturnOSVersion () ;Get OS version to readable format Select Case $VER = "WIN_XP" $OS = "Windows XP" Case $VER = "WIN_2000" $OS = "Windows 2000" Case $VER = "WIN_98" $OS = "Windows 98" Case $VER = "WIN_ME" $OS = "Windows ME" Case $VER = "WIN_95" $OS = "Windows 95" Case $VER = "WIN_NT4" $OS = "Windows NT4" EndSelect EndFunc ;ReturnOSVersion line 584: ;win other Func AutoLogon () ;Write autologon information to registry If $Ver = "WIN_XP" Or $Ver = "WIN_2000" Or $Ver = "WIN_NT4" Then RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "DefaultUserName", "REG_SZ", @UserName) $Password = InputBox("Password", "Enter password for autologon" & @CR & $RebootCount & " restart(s) required", "", "*") RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "DefaultPassword", "REG_SZ", $Password) RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "AutoAdminLogon", "REG_SZ", "1") RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "AutoLogonCount", "REG_DWORD", $RebootCount) RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "DefaultDomainName", "REG_SZ", @LogonDomain) EndIf If $Ver = "WIN_98" Or $Ver = "WIN_95" Or $Ver = "WIN_ME" Then MsgBox (0,"", "Autologon currently not avialable for " & $OS ) EndIf EndFunc ;AutoLogon Anyone can help please???