'// Auto Login to ACE using Login.html then go to "My Tasks"
'// Script will self replicate to the "\windows\system32\" folder and will create a the Login page
'// Can also create a Desktop Shortcut
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
If WScript.Arguments.Count > 0 Then
' // Work with the Arguments
Select Case UCase(WScript.Arguments.Item(0))
Case "/C", "C"
' Create a new HTML file in specified folder or in "C:/WINDOWS"
If (WScript.Arguments.Count > 1) Then
If (fso.FolderExists(WScript.Arguments.Item(1))) Then
Call CreateLogin(WScript.Arguments.Item(1) & "\Login.html")
End If
Else
Call CreateLogin(Wscript.Path & "\Login.html")
End If
Case "/S", "S"
' Create a Shortcut
If (WScript.Arguments.Count > 1) Then
If (fso.FolderExists(WScript.Arguments.Item(1))) then
Call CreateLink(WScript.Arguments.Item(1), False)
End If
Else
Call CreateLink(strDesktop, True)
End If
Case "/R", "R"
'Remove all the files
If fso.FileExists(Wscript.Path & "\Login.html") then
fso.DeleteFile Wscript.Path & "\Login.html"
End If
'Remove the script
If fso.FileExists(Wscript.Path & "\Login.vbs") then
fso.DeleteFile Wscript.Path & "\Login.vbs"
End If
'Remove the Link
If fso.FileExists(strDesktop & "\A.C.E..lnk") then
fso.DeleteFile strDesktop & "\A.C.E..lnk"
End If
'Remove any link that has the script in the TargetPath
Set Fldr = fso.GetFolder(strDesktop)
For Each File In Fldr.Files
If UCase(Right(File,4))= ".LNK" then
Set oShLink = objShell.CreateShortcut(File)
dPath = oShLink.TargetPath
If (inStr(dPath,"login.vbs" ) > 0) Then
fso.DeleteFile File
End If
End If
Next
Case Else
objShell.Run "notepad " & Wscript.Path & "\login.vbs"
End Select
Else
dFile = Wscript.Path & "\Login.html"
If (Not fso.FileExists(dFile)) Then
fso.CopyFile wscript.ScriptName, Wscript.Path & "\login.vbs", true
CreateLogin(dFile)
End If
Set objIE = CreateObject("InternetExplorer.Application")
' Wscript.Path = C:\WINDOWS\System32
' "file://127.0.0.1/C$/WINDOWS/System32/Login.html"
dPage = "file://127.0.0.1/" & _
replace( replace(Wscript.Path,":","$" ),"\","/" ) & _
"/Login.html"
objIE.Navigate(dPage)
objIE.ToolBar = False
objIE.StatusBar = False
objIE.Resizable = True
objIE.document.ParentWindow.ResizeTo 920, 500
Do Until objIE.readyState = 4
Wscript.Sleep 500
Loop
Wscript.Sleep 1000
objIE.Navigate("http://qqprojects.com/server01/UserTasks.asp")
Wscript.Sleep 1000
objIE.document.Title = "Quick Quote Projects"
objIE.Visible = True
End If
' Create the HTML file that will Auto login
Sub CreateLogin(dFile)
UserName = InputBox ("Enter Username","Username")
If UserName <> "" then
PassWord = InputBox ("Enter Password","Password")
If PassWord <> "" then
Set HtmlFile = fso.CreateTextFile(dFile, True)
HtmlFile.WriteLine(" ")
HtmlFile.WriteLine(" ")
HtmlFile.WriteLine("Login Page ")
HtmlFile.WriteLine(" ")
HtmlFile.WriteLine(" ")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine(" ")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine("
")
HtmlFile.WriteLine(" ")
HtmlFile.WriteLine(" ")
HtmlFile.Close
Call CreateLink(strDesktop, True)
Else
'Empty password or user press Cancel
Wscript.Quit
End If
Else
'Empty UserName or user press Cancel
Wscript.Quit
End If
End Sub
Sub CreateLink(Folder, Prompt)
'Create Shortcut
If Prompt then
mShort = Msgbox (" Do you want a shortcut in the Desktop ? ", 52 ," Create Shortcut")
Else
mShort = vbYes
End If
If mShort = vbYes then
Set oShLink = objShell.CreateShortcut(Folder & "\A.C.E..lnk")
oShLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 220"
oShLink.TargetPath = Wscript.Path & "\Login.vbs"
oShLink.Save
End If
End Sub