You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
555 B
25 lines
555 B
on error resume next
|
|
set computer = GetObject("umi:///winnt/computer=alanbos4")
|
|
|
|
if err <> 0 then
|
|
WScript.Echo "Retireval failed: 0x", Hex(Err.Number), Err.Description
|
|
WScript.Quit 0
|
|
end if
|
|
|
|
set user = computer.GetInstance_ ("user=guest")
|
|
|
|
if err <> 0 then
|
|
WScript.Echo "User Retireval failed: 0x", Hex(Err.Number), Err.Description
|
|
WScript.Quit 0
|
|
end if
|
|
|
|
WScript.Echo user.Description
|
|
|
|
user.Put_
|
|
|
|
if err <> 0 then
|
|
WScript.Echo "Put failed: 0x", Hex(Err.Number), Err.Description
|
|
WScript.Quit 0
|
|
end if
|
|
|
|
WScript.Echo "Success"
|