code:

---

SLEEP 20
IF EXIST ("d:\nowmi\open.txt") <> 0
	DEL ("d:\nowmi\name.txt")
	EXIT
ENDIF

$NULL = OPEN (1,"d:\nowmi\open.txt",5)
$NULL = CLOSE (1)

$NULL = OPEN (1,"d:\nowmi\name.txt",2)
IF @ERROR <> 0
	$NULL = CLOSE (1)
	DEL ("d:\nowmi\name.txt")
	EXIT
ENDIF	
$Name = READLINE (1)
$NULL = CLOSE (1)
DEL ("d:\nowmi\name.txt")
$UName = UCASE("$Name")

$COMPUTER = "navacbzw1"
$PROC = "excel.exe"

ENDPROC($COMPUTER,$PROC)

FUNCTION ENDPROC($COMPUTER,$PROC)
For each $Process in GetObject("winmgmts:{impersonationLevel=impersonate}!//$COMPUTER").ExecQuery("select * from Win32_Process where Name='$PROC'")
	$ = $Process.Terminate
Next
ENDFUNCTION

$cfilename = "d:\security\servers.xls"
READEXCEL($cfilename)

FUNCTION READEXCEL($cfilename)
	IF $cfilename = ""
		GOTO END	; -- Excel file not found"
	ENDIF
	$oxl = Createobject("Excel.application")
	$rc = $oxl.workbooks.open($cfilename)
	$nrow = 1
	$huh = 2
	WHILE $oxl.cells($nrow, 1).value <> ""
		$nrow = $nrow + 1
		IF $oxl.cells($nrow, 4).value = ""
			$oxl.quit
			$oxl = ""
			RETURN
		ENDIF
		$value1 = $oxl.cells($nrow, 4).value		; -- Get the Hostname
		$Uvalue1 = UCASE("$value1")
		IF $UValue1 = $UName
			$value0 = $oxl.cells($nrow, 6).value	; -- Get the Environment Name
			$value2 = $oxl.cells($nrow, 7).value	; -- Get the UserID
			$value3 = $oxl.cells($nrow, 8).value	; -- Get the Password
			$value4 = $oxl.cells($nrow, 5).value	; -- Get the IP Address
			USE "\\$Value4\ipc$" /user:$value2 /password:$value3
			IF @ERROR = 0
				$NULL = OPEN (1,"d:\HFNetCHK\hostfile.txt",5)
				$NULL = WRITELINE (1,"$Value4"+@CRLF)
				$NULL = CLOSE (1)
				$huh = 1
			ELSE
				$NULL = OPEN (1,"d:\HFNetCHK\noonemap.txt",5)
				$NULL = WRITELINE (1,"Unable to map $Value1 in $Value0 on @DATE"+@CRLF)
				$NULL = CLOSE (1)
				SHELL 'net use x: \\49.0.0.1\d$ /user:administrator password'
				COPY "d:\hfnetchk\noonemap.txt" "x:\inetpub\wwwroot\mspatch\noonemap.txt"
				DEL ("x:\inetpub\wwwroot\mspatch\mapone.txt")
				$huh = 0
			ENDIF
		ENDIF
	LOOP
	$oxl.quit
	$oxl = ""
ENDFUNCTION

SELECT
CASE $huh = 1
	GOTO Continue
CASE $huh = 2
	GOTO Nothing
CASE $huh = 0
	GOTO END
ENDSELECT

GOTO END

:Continue

SELECT

CASE $value0 = "PAT"
	SHELL 'hfnetchk -fip d:\hfnetchk\hostfile.txt -t 5 -s 2 -nosum -o tab -f d:\patchlogging\hfnetchk_PAT.txt'
	SHELL 'dtsrun /S49.0.0.0 /Usa /Ppassword /NHFNETCHK_PAT_DTS'
CASE $value0 = "CPO"
	SHELL 'hfnetchk -fip d:\hfnetchk\hostfile.txt -t 5 -s 2 -nosum -o tab -f d:\patchlogging\hfnetchk_CPO.txt'
	SHELL 'dtsrun /S49.0.0.0 /Usa /Ppassword /NHFNETCHK_CPO_DTS'
CASE $value0 = "SOC"
	SHELL 'hfnetchk -fip d:\hfnetchk\hostfile.txt -t 5 -s 2 -nosum -o tab -f d:\patchlogging\hfnetchk_SOC.txt'
	SHELL 'dtsrun /S49.0.0.0 /Usa /Ppassword /NHFNETCHK_SOC_DTS'
CASE $value0 = "TREE"
	SHELL 'hfnetchk -fip d:\hfnetchk\hostfile.txt -t 5 -s 2 -nosum -o tab -f d:\patchlogging\hfnetchk_TREE.txt'
	SHELL 'dtsrun /S49.0.0.0 /Usa /Ppassword /NHFNETCHK_TREE_DTS'
CASE $value0 = "DEV"
	SHELL 'hfnetchk -fip d:\hfnetchk\hostfile.txt -t 5 -s 2 -nosum -o tab -f d:\patchlogging\hfnetchk_DEV.txt'
	SHELL 'dtsrun /S49.0.0.0 /Usa /Ppassword /NHFNETCHK_DEV_DTS'
CASE $value0 = "TREB"
	SHELL 'hfnetchk -fip d:\hfnetchk\hostfile.txt -t 5 -s 2 -nosum -o tab -f d:\patchlogging\hfnetchk_TREB.txt'
	SHELL 'dtsrun /S49.0.0.0 /Usa /Ppassword /NHFNETCHK_TREB_DTS'
ENDSELECT

SHELL 'dtsrun /S49.0.0.0 /Usa /Ppassword /NCMSPATCH1'

SHELL 'net use x: \\49.0.0.1\d$ /user:administrator password'
DEL ("x:\inetpub\wwwroot\mspatch\noonemap.txt")
COPY "d:\hfnetchk\hostfile.txt" "x:\inetpub\wwwroot\mspatch\mapone.txt"
GOTO END

:Nothing
SHELL 'net use x: \\49.0.0.1\d$ /user:administrator password'
DEL ("x:\inetpub\wwwroot\mspatch\noonemap.txt")
$NULL = REDIRECTOUTPUT ("X:\inetpub\wwwroot\mspatch\mapone.txt",1)
"For some reason the server name you entered could not be found"+@CRLF
"Please check your spelling. If this does not work, please verify"+@CRLF
"that the system exists in the security inventory spreadsheet."+@CRLF
" "+@CRLF
"SERVER NAME ENTERED = $name"
$NULL = REDIRECTOUTPUT ("")

:END

SHELL 'net use * /D /y'

DEL ("d:\HFNetCHK\hostfile.txt")
DEL ("d:\HFNetCHK\noonemap.txt")

DEL ("d:\hfnetchk\DFSD")
DEL ("d:\patchlogging\DFSD")
:END
DEL ("d:\nowmi\open.txt")

EXIT
  

---

Anyone with thoughts or hints... or general code improvements?

[ 06. February 2003, 06:06: Message edited by: whaler ]

quote:

---

spreedsheet

---

quote:

---

[FAIL ] ITaskScheduler::SetTargetComputer hr=0x80070005

---

code:

---

$ConnDSN="DRIVER=SQL Server;SERVER=$Server;UID=$User;PWD=$Password;DATABASE=hfnetchk"
$sql="SELECT Location, IP1, NTUser, NTPassword from Contact WHERE Location='PAT'"
$recordset = DBCommand($ConnDSN,$sql)

$NULL=REDIRECTOUTPUT("c:\array.txt",0)
for $row=0 to ubound($recordset,1)
	USE "\\'RTRIM($recordset[$row,1])'\IPC$" /user:'RTRIM($recordset[$row,2])' /password:'RTRIM($recordset[$row,3])'
	? "\\"+RTRIM($recordset[$row,1])+"\IPC$ /user:"+RTRIM($recordset[$row,2])+" /password:"+RTRIM($recordset[$row,3])
next
$NULL=REDIRECTOUTPUT("")
  

---

code:

---

$driveletter='*'
$UNC='\\'+TRIM($recordset[$row,1])+'\IPC$$'
$user='/user:'+TRIM($recordset[$row,2])
$password='/password:'+TRIM($recordset[$row,3])
? $driveletter
? $UNC
? $user
? $password
use $driveletter $UNC $user $password
? 'Error = '+@ERROR+' - '+@SERROR

---

code:

---

$UNC='\\'+TRIM($recordset[$row,1])+'\IPC$$'
$user='/user:'+TRIM($recordset[$row,2])
$password=''+TRIM($recordset[$row,3])
? $UNC
? $user
? $password
SHELL 'net use $UNC $user $password'  

---