I wouldnt use the following line, I would, and actually do the following DONT USE AbsPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "") Use currentDirectory = WshShell.currentDirectory & "\" Just my two cents Jim
I would do something different for the choice box, something like choice=MsgBox("Do you want to run diskpart now?",3,"Run diskpart?") If choice = 6 Then Call ExecuteProg(AbsPath & "diskpart ", Answer) End If
Yes, you can use vbscript to crawl through your domain and copy the file to the correct location. Or, cant you set the screensaver to use a file located on a network share? Jim