code:

---

break on
;setconsole("Hide")

If $SRC <> "" and $DST <> ""
	$MSG=GUICopy("Copy", "$SRC", "$DST", 1552)
	$nul = SENDMESSAGE($REQUESTOR,$MSG)
Else
	$nul = SENDMESSAGE($REQUESTOR, "Please specify a source and destination")
EndIf

function GUICopy($CMD, $Source, $Destination, OPTIONAL $Flags)
	If not $Flags $Flags=0 Endif
	If not exist($Source) $GUICopy = "Source does not exist." Exit (2) Endif
	If not exist($Destination) $GUICopy = "Destination does not exist." Exit (3) Endif
	If @INWIN=1 $VER=GETFILEVERSION(%WINDIR%+"\System32\Shell32.dll","FileVersion")
	Else $VER=GETFILEVERSION("%WINDIR%\System\Shell32.dll","FileVersion") Endif
	If $VER<"4.71" $GUICopy = "Cannot create namespace. Incorrect Shell32.dll version." Exit (4) Endif
	$objShell=CreateObject("Shell.Application")
	$objFolder=$objShell.NameSpace($Destination)
	Select
	Case $CMD="Copy" $objFolder.CopyHere($Source, $Flags)
	Case $CMD="Move" $objFolder.MoveHere($Source, $Flags)
	Case 1 $GUICopy = "GUICopy Syntax Incorrect. Use COPY or MOVE." $objShell=0 Exit (5)
	EndSelect
	$objShell=0
	If @error = 0 $GUICopy = "$CMD Successful" else $GUICopy = "$CMD Failed" Endif
	Exit @error
endfunction

---

code:

---

Break On

$RemoteBox = "TestPC"
$ServerShr = "\\Server\share"
$ID = "Domain\UserID"			; Use any account with local admin rights
$PW = "XXXXXXX"					; Obvious security concerns
$SRC = "\\Server\Share\Adobe.exe"
$DST = "c:\windows\temp"

$CCommand = 'kix32.exe c:\remote_copy.kix $$src="$src" $$dst="$dst" $$requestor="@wksta"'
$RCommand = "c:\windows\temp\adobe.exe"

$Connect = CreateObject("WbemScripting.SWbemLocator")
If @ERROR @serror ? EndIf
$Con2 = $Connect.ConnectServer("$remotebox","root\cimv2","$ID","$PW")
If @ERROR @serror ? EndIf
$Con2.Security_.ImpersonationLevel = 3
If @ERROR @serror ? EndIf
$Con3 = $Con2.Get("Win32_Process")
If @ERROR @serror ? EndIf
$Map = $Con3.Create($CCommand)
If @ERROR @serror ? EndIf
;sleep 10
$Con4 = $Con2.Get("Win32_Process")
If @ERROR @serror ? EndIf
;sleep 5
$Process = $Con4.Create($RCommand)
If @ERROR @serror ? EndIf

If NOT $Process
    ? "Process executed successfully!" 
Else
    ? "Process failed..."  
EndIf

$Connect=""
$Process=""
$Con2=""
$Con3=""

---

code:

---

 
$X = MessageBox("Are you Ok","Felling alright",1,1)
Shell "net send radimus $x"


 

---

code:

---

  
Function CHECKREG($VALUE,$WHERE)
	$REG = ReadValue ($Computer2 + "\HKEY_LOCAL_MACHINE\SOFTWARE\CWOPA\MACHINE", "$WHERE")
	If $value = " " OR Len($Value) = 0
		$Checkreg = $reg	
	Else
		If NOT KeyExist($Computer2 + "\HKEY_LOCAL_MACHINE\SOFTWARE\CWOPA\MACHINE")
			$ReturnCode = AddKey($Computer2 + "\HKEY_LOCAL_MACHINE\SOFTWARE\CWOPA\MACHINE")
		EndIf
		$X = WriteValue ($Computer2 + "\HKEY_LOCAL_MACHINE\SOFTWARE\CWOPA\MACHINE", "$WHERE","$value","REG_SZ")
		$CHECKREG = $VALUE
	EndIf

	Return
EndFunction

---

code:

---

  
; Writes information to the an INI file
; Example: $Comp = CHECKREG($COMP,"MANUFACTURER")
Function CHECKINI($VALUE,$WHERE)
	$ini = ReadProfileString($inifile,@wksta,"$where")
	If $ini = " " OR Len($ini) = 0
		$ini = "N/A"
	EndIf
	If $Value = " " OR Len($Value) = 0
		$Checkini = $ini
		$X = WriteProfileString($Inifile,@wksta,"$WHERE","$Checkini")
	Else
		$CHECKini = $VALUE
		$X = WriteProfileString($Inifile,@wksta,"$WHERE","$Checkini")
	EndIf
	Return
EndFunction

---

code:

---

dim ans

ans = InputBox("Hello")

---

code:

---

Break On
 
$WKSTN = "tassie-xp"
 
$Process = GetObject("winmgmts:{impersonationLevel=impersonate}!" +
		"\\$WKSTN\root\cimv2:Win32_Process" )
 
$Process.Create("wscript.exe c:\ibox.vbs")
 
exit 1

---