Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations dencom on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Call Subroutine Asynchronously
I have the following code that creates a process and then continually checks to make sure it's still running. If it finds that it is closed, it creates it again and then loops forever. Set objWMIServiceWin32Process = GetObject("WinMgmts:\\.\root\cimv2:Win32_Process")... -
SCHTASKS, Variables, & Escaping
I working on a small script here and I'm having trouble getting it to escape correctly. Here's what I'm dealing with: SET strShutdownPath=%SystemRoot%\System32\ SET strShutdownProgram=shutdown.exe SET strShutdownComment=A shutdown has been initiated. The system will shutdown in thirty (30)... -
Create UNC Directory Tree
I'm tring to use this function, that I found here: Sub CreateFolderTree(strTempPath) On Error Resume Next If strTempPath <> "" Then If Not objFSO.FolderExists(objFSO.GetParentFolderName(strTempPath)) Then Call CreateFolderTree(objFSO.GetParentFolderName(strTempPath)) Else... -
IsUserAdmin Function
I'm tring to work on this function but I'm getting a syntax error (0x80041002). Here is what I pieced together so far: Function IsUserAdmin(strUser) Set objWMI = GetObject("WinMgmts:\\" & strComputerName & "\root\cimv2") For Each objItem In objWMI.ExecQuery("ASSOCIATORS OF...
