#50798 - 2000-08-16 12:00 AM
Re: KIXTART-TOOL: stripping kix code/reformatting kix code
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
After running kixstrip network.kix network.new /block_check /debug:code:
?"- 1-"
?"- 2-" ;---------------------------------------------------------------------
?"- 3-" ;
?"- 4-" ; This kixtart script tries to scan your network and
?"- 5-" ; find any share drives and local usernames is
?"- 6-" ; possible. It is writen for NT Administartors
?"- 7-" ; and I do not take any resposibility for malign
?"- 8-" ; use of it especially with the aggressive scan.
?"- 9-" ; You can see the scanning results at your screen;
?"- 10-" ; a report file also will be created on current directory.
?"- 11-" ;
?"- 12-" ; All you have to do is to specify the ip range you want to
?"- 13-" ; scan when you promped with the following syntax :
?"- 14-" ;
?"- 15-" ;
?"- 16-" ;
?"- 17-" ; *.12.12.* will scan all the addrsses
?"- 18-" ; from 1 to 254 .12.12. from 1 to 254
?"- 19-" ; 12.12.[100-110].100 will scan all the addrsses
?"- 20-" ; 12.12. from 100 to 110 .100
?"- 21-" ; other valid ip ranges can be:
?"- 22-" ; *.*.*.* or [1-10].*.[200-223].*
?"- 23-" ;
?"- 24-" ;
?"- 25-" ;
?"- 26-" ; Please send me your commnents
?"- 27-" ; or any improvements you have made on it !
?"- 28-" ;
?"- 29-" ;
?"- 30-" ; George Bouras
?"- 31-" ; bourasg@unisystems.gr
?"- 32-" ;
?"- 33-" ;---------------------------------------------------------------------
?"- 34-"
?"- 35-" ; Here is just some information boxes and the prompt for the ip range
?"- 36-"
?"- 37-" CLS
BREAK on
?"- 38-" DIM $inboxmsg[10]
?"- 39-" :chooserange
?"- 40-" COLOR r+/n
?"- 41-" box(0,0,2,39,double) box(0,40,2,79,double)
?"- 42-" box(3,0,5,39,double) box(3,40,5,79,double)
?"- 43-"
?"- 44-" COLOR c+/n
?"- 45-" at(1,2) "Local Ip Address : " @ipaddress0
?"- 46-" at(1,42) "Local host Name : " @hostname
?"- 47-" at(4,2) @mdayno " " @day " " @year " ** " @time
?"- 48-" at(4,42) "Current dir : " @curdir
?"- 49-"
?"- 50-" COLOR g+/n box(10,5,14,73,double)
COLOR c+/n
?"- 51-" at(12,7) " Enter the IP range : "
COLOR y+/n
GETS $string
?"- 52-"
?"- 53-" ; Lets check if there are any dots in the range at all !
?"- 54-" IF len($string)=0
GOSUB badip
GOTO "chooserange"
ENDIF
?"- 55-" $n=0
?"- 56-" DO
?"- 57-" $dot=substr($string,$n,1)
?"- 58-" IF $dot=.
GOTO "dotok"
ENDIF
?"- 59-" $n=$n+1
?"- 60-" UNTIL $n=len($string)
?"- 61-" GOSUB badip
GOTO "chooserange"
ENDIF
; -------> Warning KIXSTRIP: 61 block "if/else/endif" incompleted. starting point of block structure missing.
; -------> Warning KIXSTRIP: 61 block incompleted.
?"- 62-" :dotok
?"- 63-" :choosemode
?"- 64-" COLOR g+/n box(16,5,20,73,double)
COLOR c+/n
?"- 65-"
?"- 66-" at(18,7) " Press "
COLOR y+/n "1"
COLOR c+/n " for Quick"
COLOR y+/n
?"- 67-" " 2 "
COLOR c+/n "for Normal"
COLOR y+/n " 3 "
COLOR c+/n
?"- 68-" "for Aggresive Scan or"
COLOR y+/n " X "
COLOR c+/n "to exit"
?"- 69-" at(23,78)
GET $mode
?"- 70-" IF $mode=x
GOTO "end"
ENDIF
?"- 71-" IF $mode=1 OR $mode=2 OR $mode=3
ELSE
GOTO "choosemode"
ENDIF
?"- 72-"
?"- 73-" ; -------- Now I am going to analyse the IP range ---------
?"- 74-" ; -------- and found the boundaries of each octet ---------
?"- 75-"
?"- 76-" $inboxmsg[1] = "Please wait while I analyse"
?"- 77-" $inboxmsg[2] = " the IP range"
?"- 78-" $boxstyle = double
?"- 79-" GOSUB dosbox
?"- 80-"
?"- 81-" $delimeter=.
?"- 82-" GOSUB split
?"- 83-" IF $nomore_sub <> 4
GOSUB badip
GOTO "chooserange"
ENDIF
?"- 84-"
?"- 85-" IF substr($sector1,1,1)="["
?"- 86-" $n=1
?"- 87-" DO
?"- 88-" $dot = substr($sector1,$n,1)
?"- 89-" $n=$n+1
?"- 90-" IF $n=len($sector1) AND $dot <> "-"
GOSUB badip
GOTO "chooserange"
ENDIF
?"- 91-" UNTIL $dot="-"
?"- 92-" $a1=val(rtrim(ltrim(substr($sector1,2,$n-3))))
?"- 93-" $a2=val(rtrim(ltrim(substr($sector1,$n,len($sector1)-$n))))
?"- 94-" ELSE
IF substr($sector1,1,1) <> "*" $a1=val($sector1) $a2=$a1
ENDIF
?"- 95-" IF substr($sector1,1,1)="*" $a1=1 $a2=254
ENDIF
ENDIF
?"- 96-"
?"- 97-" IF substr($sector2,1,1)="["
?"- 98-" $n=1
?"- 99-" DO
?"- 100-" $dot = substr($sector2,$n,1)
?"- 101-" $n=$n+1
?"- 102-" IF $n=len($sector2) AND $dot <> "-"
GOSUB badip
GOTO "chooserange"
ENDIF
?"- 103-" UNTIL $dot="-"
?"- 104-" $b1=val(rtrim(ltrim(substr($sector2,2,$n-3))))
?"- 105-" $b2=val(rtrim(ltrim(substr($sector2,$n,len($sector2)-$n))))
?"- 106-" ELSE
IF substr($sector2,1,1) <> "*" $b1=val($sector2) $b2=$b1
ENDIF
?"- 107-" IF substr($sector2,1,1)="*" $b1=1 $b2=254
ENDIF
ENDIF
?"- 108-"
?"- 109-" IF substr($sector3,1,1)="["
?"- 110-" $n=1
?"- 111-" DO
?"- 112-" $dot = substr($sector3,$n,1)
?"- 113-" $n=$n+1
?"- 114-" IF $n=len($sector3) AND $dot <> "-"
GOSUB badip
GOTO "chooserange"
ENDIF
?"- 115-" UNTIL $dot="-"
?"- 116-" $c1=val(rtrim(ltrim(substr($sector3,2,$n-3))))
?"- 117-" $c2=val(rtrim(ltrim(substr($sector3,$n,len($sector3)-$n))))
?"- 118-" ELSE
IF substr($sector3,1,1) <> "*" $c1=val($sector3) $c2=$c1
ENDIF
?"- 119-" IF substr($sector3,1,1)="*" $c1=1 $c2=254
ENDIF
ENDIF
?"- 120-"
?"- 121-" IF substr($sector4,1,1)="["
?"- 122-" $n=1
?"- 123-" DO
?"- 124-" $dot = substr($sector4,$n,1)
?"- 125-" $n=$n+1
?"- 126-" IF $n=len($sector4) AND $dot <> "-"
GOSUB badip
GOTO "chooserange"
ENDIF
?"- 127-" UNTIL $dot="-"
?"- 128-" $d1=val(rtrim(ltrim(substr($sector4,2,$n-3))))
?"- 129-" $d2=val(rtrim(ltrim(substr($sector4,$n,len($sector4)-$n))))
?"- 130-" ELSE
IF substr($sector4,1,1) <> "*" $d1=val($sector4) $d2=$d1
ENDIF
?"- 131-" IF substr($sector4,1,1)="*" $d1=1 $d2=254
ENDIF
ENDIF
?"- 132-"
?"- 133-" ;----------------------------------------------------------------------------------
?"- 134-" ; ------------- lets count now the total number of IPs we must scan ...
?"- 135-" ;----------------------------------------------------------------------------------
?"- 136-"
?"- 137-" $n= ($a2-$a1+1)*($b2-$b1+1)*($c2-$c1+1)*($d2-$d1+1)
?"- 138-"
?"- 139-" $inboxmsg[1] = "You select to scan $n"
?"- 140-" $inboxmsg[2] = " IP Addresses."
?"- 141-" $inboxmsg[3] = " Please wait ..."
?"- 142-" $boxstyle = double
?"- 143-" GOSUB dosbox
?"- 144-" SLEEP 2
?"- 145-"
?"- 146-" ; ------------- What I have now is the boundaries -----------------------
?"- 147-" ; ------------- of every octet. -----------------------------------------
?"- 148-" ; ------------- $a1 and $a2 for the first octet -------------------------
?"- 149-" ; ------------- $b1 and $b2 for the second octet ------------------------
?"- 150-" ; ------------- $c1 and $c2 for the third octet -------------------------
?"- 151-" ; ------------- $d1 and $d2 for the forth octet -------------------------
?"- 152-" ; ------------- so we can go for the super loop !!! ---------------------
?"- 153-"
?"- 154-"
?"- 155-" IF exist (@curdir + "\cache.log")
DEL @curdir + "\cache.log"
ENDIF
?"- 156-" IF $null=open(1,@curdir + "\cache.log",3)
GOTO "checklog"
ENDIF
?"- 157-"
?"- 158-" $inboxmsg[1] = "Could not create the transaction file"
?"- 159-" $inboxmsg[2] = " inside the current directory."
?"- 160-" $inboxmsg[3] = " Proccess stoped"
?"- 161-" $inboxmsg[4] = " Press any key to exit"
?"- 162-" $boxstyle = double
?"- 163-" GOSUB dosbox
?"- 164-" GET $null
?"- 165-" GOTO "end"
?"- 166-"
?"- 167-" :checklog
?"- 168-" $null=close(1)
?"- 169-" $logfile=@curdir + "\" + @mdayno + @month + @year + "@@" +
?"- 170-" substr(@time,1,2) + substr(@time,4,2) + substr(@time,7,2) + ".txt"
?"- 171-" IF exist($logfile)
DEL $logfile
ENDIF
?"- 172-" IF $null=open(2,$logfile,5)
GOTO "check_nt"
ENDIF
?"- 173-" $null=close(2)
?"- 174-"
?"- 175-" $inboxmsg[1] = "Could not create the report file"
?"- 176-" $inboxmsg[2] = " Proccess stoped."
?"- 177-" $inboxmsg[3] = " Press any key to exit."
?"- 178-" $boxstyle = double
?"- 179-" GOSUB dosbox
?"- 180-" GET $null
?"- 181-" GOTO "end"
?"- 182-"
?"- 183-"
?"- 184-" :check_nt
?"- 185-" IF $mode=3
ELSE
GOTO "startloop"
ENDIF
?"- 186-" IF @inwin <> 1
?"- 187-" $inboxmsg[1] = "Sorry but you can Perform an"
?"- 188-" $inboxmsg[2] = " Aggressive scan only from"
?"- 189-" $inboxmsg[3] = " an WinNT or Win2000 box"
?"- 190-" $inboxmsg[4] = " Press anu key to exit"
?"- 191-" $boxstyle = double
?"- 192-" GOSUB dosbox
?"- 193-" $null=close(2)
?"- 194-" GET $null
?"- 195-" GOTO "end"
?"- 196-" ENDIF
?"- 197-"
?"- 198-" SHELL "%comspec% /c global.exe > " + @curdir + "\cache.log"
CLS
?"- 199-" IF @error=1 $null="global.exe"
GOTO "notexist"
ENDIF
?"- 200-" SHELL "%comspec% /c local.exe > " + @curdir + "\cache.log"
CLS
?"- 201-" IF @error=1 $null="local.exe"
ELSE
GOTO "startloop"
ENDIF
?"- 202-"
?"- 203-" :notexist
?"- 204-" $inboxmsg[1] = "I could not locate the file : " + $null
?"- 205-" $inboxmsg[2] = "This file is a NT Resource kit utility"
?"- 206-" $inboxmsg[3] = "Place this file somewhere to your path"
?"- 207-" $inboxmsg[4] = " or install NT resourse kit and try"
?"- 208-" $inboxmsg[5] = " again. Press any key to exit"
?"- 209-" $boxstyle = double
?"- 210-" GOSUB dosbox
?"- 211-" $null=close(2)
?"- 212-" GET $null
?"- 213-" GOTO "end"
?"- 214-" :startloop
?"- 215-"
?"- 216-" COLOR r+/n
CLS ? ? box(0,0,2,24,single)
COLOR c+/n at(1,1)
?"- 217-" SELECT
CASE
$mode=1 " Quick "
?"- 218-" CASE
$mode=2 " Normal "
?"- 219-" CASE
$mode=3 "Aggressive "
?"- 220-" ENDSELECT
"scan started" ? ?
?"- 221-"
?"- 222-"
?"- 223-" ; Even if we can a use a loop procedure with four nested
?"- 224-" ; loops in order to do all the scanning, we are going to
?"- 225-" ; use two different loop procedures (every one with four
?"- 226-" ; nested loops) . The one loop procedure will be for the
?"- 227-" ; quick and normal scan and the other loop procedure will
?"- 228-" ; be only for the aggressive scan. The reason is to speed
?"- 229-" ; up the script execution during the scan as many if
?"- 230-" ; statements will be executed once and not every time a
?"- 231-" ; new ip address will be proccessed. So may the script
?"- 232-" ; code will be a litle bit biger but it will finish sooner.
?"- 233-"
?"- 234-" IF val($mode) <= 2
GOTO "scan12"
ELSE
GOTO "scan3"
ENDIF
?"- 235-"
?"- 236-"
?"- 237-"
?"- 238-" ; --------- start loop for quick or normal scan ---------
?"- 239-" :scan12
?"- 240-" $b1_temp=$b1
?"- 241-" $c1_temp=$c1
?"- 242-" $d1_temp=$d1
?"- 243-" WHILE $a2=>$a1
?"- 244-" $b1=$b1_temp
?"- 245-" WHILE $b2=>$b1
?"- 246-" $c1=$c1_temp
?"- 247-" WHILE $c2=>$c1
?"- 248-" $d1=$d1_temp
?"- 249-" WHILE $d2=>$d1
?"- 250-"
?"- 251-" ; ****************************************************************
?"- 252-" ; ************ Here is the code inside the inner loop ************
?"- 253-" ; ****************************************************************
?"- 254-"
?"- 255-" $ip="$a1.$b1.$c1.$d1"
?"- 256-" SELECT
?"- 257-" CASE
$mode=1
?"- 258-" SHELL "%comspec% /c ping -n 1 -l 64 -w 1000 " + $ip + " > " + @curdir + "\cache.log"
?"- 259-" CASE
$mode=2
?"- 260-" SHELL "%comspec% /c ping -a -n 1 -l 64 -w 2000 " + $ip + " > " + @curdir + "\cache.log"
?"- 261-" ENDSELECT
?"- 262-"
?"- 263-" ; lets wait a litle until the log file created ...
?"- 264-" WHILE open(1, @curdir + "\cache.log" ,2) <> 0
?"- 265-" SLEEP 1
?"- 266-" LOOP
?"- 267-" readline(1)
?"- 268-" readline(1)
?"- 269-" $data=readline(1)
?"- 270-"
?"- 271-" IF $mode=1 $name="undefined"
GOTO "bypassname"
ENDIF
?"- 272-"
?"- 273-" $n=0 $k=0 $dot=""
?"- 274-" DO
?"- 275-" $dot=substr($data,$n,1)
?"- 276-" IF $dot="[" OR $dot="]" $k=$k+1
ENDIF
?"- 277-" $n=$n+1
?"- 278-" UNTIL $n=len($data)
?"- 279-"
?"- 280-" IF $k=2 ; this means that the name retreived
?"- 281-" $n=0
?"- 282-" DO
?"- 283-" $dot=substr($data,$n,1)
?"- 284-" $n=$n+1
?"- 285-" UNTIL $dot="["
?"- 286-" $name=substr($data,9,$n-11)
?"- 287-"
?"- 288-" ELSE
; the name could not be retreived
?"- 289-" $name="undefined"
?"- 290-" ENDIF
?"- 291-" :bypassname
?"- 292-" readline(1)
?"- 293-" readline(1)
?"- 294-" readline(1)
?"- 295-" $data=readline(1)
?"- 296-"
?"- 297-" ; now I am going to check if the host is alive or not
?"- 298-"
?"- 299-" IF substr($data,1,5)="Reply"
?"- 300-" $result="alive"
?"- 301-" ELSE
?"- 302-" $result="down"
?"- 303-" ENDIF
?"- 304-"
?"- 305-" SELECT
?"- 306-" CASE
$mode=1
?"- 307-" COLOR w/n " host "
COLOR c+/n $ip chr(9)
COLOR w/n " is "
?"- 308-" IF $result="down"
COLOR r+/n
ELSE
COLOR g+/n
ENDIF
$result ?
?"- 309-" $scan_result="host " + $ip + " is " + $result
?"- 310-"
?"- 311-" CASE
$mode=2
?"- 312-" COLOR w/n "host "
COLOR c+/n $ip chr(9)
?"- 313-" COLOR w/n " with name "
?"- 314-" IF $name="undefined"
COLOR r+/n
ELSE
COLOR g+/n
ENDIF
$name
?"- 315-" chr(9)
COLOR w/n " is "
?"- 316-" IF $result="down"
COLOR r+/n
ELSE
COLOR g+/n
ENDIF
$result ?
?"- 317-" $scan_result="host " + $ip + " with name " + $name + " is " + $result
?"- 318-"
?"- 319-" ENDSELECT
?"- 320-" $null=writeline(2,$scan_result+chr(13)+chr(10))
?"- 321-" $null=close(1)
?"- 322-"
?"- 323-" ; ****************************************************************
?"- 324-" ; *************** Here stops the code of inner loop **************
?"- 325-" ; ****************************************************************
?"- 326-"
?"- 327-" $d1=$d1+1
?"- 328-" LOOP
?"- 329-" $c1=$c1+1
?"- 330-" LOOP
?"- 331-" $b1=$b1+1
?"- 332-" LOOP
?"- 333-" $a1=$a1+1
?"- 334-" LOOP
?"- 335-" GOTO "endloop"
?"- 336-" ; quick or normal scan is stoped
?"- 337-"
?"- 338-"
?"- 339-"
?"- 340-" ; ****************************************************************
?"- 341-" ; ****************************************************************
?"- 342-"
?"- 343-"
?"- 344-"
?"- 345-" ; --------- start loop for aggressive scan ---------
?"- 346-" :scan3
?"- 347-" $b1_temp=$b1
?"- 348-" $c1_temp=$c1
?"- 349-" $d1_temp=$d1
?"- 350-" WHILE $a2=>$a1
?"- 351-" $b1=$b1_temp
?"- 352-" WHILE $b2=>$b1
?"- 353-" $c1=$c1_temp
?"- 354-" WHILE $c2=>$c1
?"- 355-" $d1=$d1_temp
?"- 356-" WHILE $d2=>$d1
?"- 357-"
?"- 358-" ; ****************************************************************
?"- 359-" ; ************ Here is the code inside the inner loop ************
?"- 360-" ; ****************************************************************
?"- 361-"
?"- 362-" $ip="$a1.$b1.$c1.$d1"
?"- 363-"
?"- 364-" SHELL "%comspec% /c ping -a -n 1 -l 64 -w 2000 " + $ip + " > " + @curdir + "\cache.log"
?"- 365-" ; lets wait a litle until the log file created ...
?"- 366-" WHILE open(1, @curdir + "\cache.log" ,2) <> 0
?"- 367-" SLEEP 1
?"- 368-" LOOP
?"- 369-" readline(1)
?"- 370-" readline(1)
?"- 371-" $data=readline(1)
?"- 372-"
?"- 373-" $n=0 $k=0 $dot=""
?"- 374-" DO
?"- 375-" $dot=substr($data,$n,1)
?"- 376-" IF $dot="[" OR $dot="]" $k=$k+1
ENDIF
?"- 377-" $n=$n+1
?"- 378-" UNTIL $n=len($data)
?"- 379-"
?"- 380-" IF $k=2 ; this means that the name retreived
?"- 381-" $n=0
?"- 382-" DO
?"- 383-" $dot=substr($data,$n,1)
?"- 384-" $n=$n+1
?"- 385-" UNTIL $dot="["
?"- 386-" $name=substr($data,9,$n-11)
?"- 387-"
?"- 388-" ELSE
; the name could not be retreived
?"- 389-" $name="undefined"
?"- 390-" ENDIF
?"- 391-" readline(1)
?"- 392-" readline(1)
?"- 393-" readline(1)
?"- 394-" $data=readline(1)
?"- 395-"
?"- 396-" ; now I am going to check if the host is alive or not
?"- 397-"
?"- 398-" IF substr($data,1,5)="Reply"
?"- 399-" $result="alive"
?"- 400-" ELSE
?"- 401-" $result="down"
?"- 402-" ENDIF
?"- 403-"
?"- 404-"
?"- 405-" COLOR w/n "host "
COLOR c+/n $ip chr(9)
?"- 406-" COLOR w/n " with name "
?"- 407-" IF $name="undefined"
COLOR r+/n
ELSE
COLOR g+/n
ENDIF
$name
?"- 408-" chr(9)
COLOR w/n " is "
?"- 409-" IF $result="down"
COLOR r+/n
ELSE
COLOR g+/n
ENDIF
$result ?
?"- 410-" $scan_result="host " + $ip + " with name " + $name + " is " + $result
?"- 411-"
?"- 412-" $null=close(1)
?"- 413-" $null=writeline(2,$scan_result+chr(13)+chr(10))
?"- 414-" IF $result="down"
GOTO "nextip"
ENDIF
?"- 415-"
?"- 416-"
?"- 417-"
?"- 418-" ; Now I am going to Retreive the remote Registered names with
?"- 419-" ; the use of " nbtstat -A ip " command
?"- 420-"
?"- 421-" COLOR w/n ?
?"- 422-" "Please wait. Retreiving remote Registered names of "
COLOR c+/n $ip ?
?"- 423-"
?"- 424-" SHELL "%comspec% /c nbtstat -A " + $ip + " > " + @curdir + "\cache.log"
?"- 425-" ; lets wait a litle until the log file created ...
?"- 426-" WHILE open(1, @curdir + "\cache.log" ,2) <> 0
?"- 427-" SLEEP 1
?"- 428-" LOOP
?"- 429-" $null=readline(1)
?"- 430-" IF substr($null,1,4)=host OR len($null)=4 OR substr($null,1,5)="There"
?"- 431-" COLOR r+/n chr(9)+"could not get values" ? ?
?"- 432-" $null=close(1)
?"- 433-" GOTO "resources"
?"- 434-" ENDIF
?"- 435-"
?"- 436-" ; here is some text formatting commands
?"- 437-" DO $null=readline(1)
?"- 438-" UNTIL substr($null,1,11)="MAC Address" $null=readline(1)
?"- 439-"
?"- 440-" $null=writeline(2,chr(13)+chr(10)+"Remote Registered Names for the host "+ $ip +" are")
?"- 441-" $null=writeline(2,chr(13)+chr(10)+"-------------------------------------------------------")
?"- 442-" $null=writeline(2,chr(13)+chr(10))
?"- 443-"
?"- 444-" COLOR g+/n
?"- 445-" DO
?"- 446-" $null=writeline(2,chr(9)+$null+chr(13)+chr(10))
?"- 447-" $null=readline(1)
?"- 448-" chr(9) $null ?
?"- 449-" UNTIL len($null)=0 OR @error=-1
?"- 450-" $null=writeline(2,chr(13)+chr(10))
?"- 451-" $null=close(1)
?"- 452-"
?"- 453-"
?"- 454-" ; ********************************************************************
?"- 455-" ; ********************************************************************
?"- 456-" ; ** Here is the code for Trying to Retreive the Remote resources **
?"- 457-" ; ********************************************************************
?"- 458-" ; ********************************************************************
?"- 459-"
?"- 460-"
?"- 461-" :resources
?"- 462-" COLOR w/n
?"- 463-" "Trying connect to host "
COLOR c+/n $ip
COLOR w/n " Please wait ... "
?"- 464-"
?"- 465-"
?"- 466-"
?"- 467-" USE "\\$ip\ipc$"
?"- 468-" IF @error=0
GOTO "goodip"
ENDIF
?"- 469-" USE "\\$ip\ipc$" /user:"Administrator" /password:""
?"- 470-" IF @error<>0
COLOR r+/n " connection failed." ? ?
GOTO "nextip"
ENDIF
?"- 471-"
?"- 472-" :goodip
?"- 473-" COLOR g+/n " connection succeed !" ? ?
?"- 474-"
?"- 475-" $n=1
?"- 476-" DO
?"- 477-" SELECT
?"- 478-" CASE
$n=1 $target="Administrators" $method="local"
?"- 479-" CASE
$n=2 $target="Users" $method="local"
?"- 480-" CASE
$n=3 $target="Domain Admins" $method="global"
?"- 481-" CASE
$n=4 $target="Domain Users" $method="global"
?"- 482-" ENDSELECT
?"- 483-"
?"- 484-" COLOR w/n
?"- 485-" "Retreiving remote $method $target, at host "
COLOR c+/n $ip
COLOR w/n " Please wait ..." ?
?"- 486-" "----------------------------------------------------------------------------" ?
?"- 487-" $null=writeline(2,
; -------> Warning KIXSTRIP: 487 line incomplete "left parenthesis".
; -------> Warning KIXSTRIP: 487 line incompleted.
?"- 488-" "Remote " + $method + " " + $target + " at host " + $ip + " are"+chr(13)+chr(10))
; -------> Warning KIXSTRIP: 488 line incomplete "right parenthesis".
; -------> Warning KIXSTRIP: 488 line incompleted.
?"- 489-" $null=writeline(2,"-----------------------------------------------------"+chr(13)+chr(10))
?"- 490-"
?"- 491-" SHELL "%comspec% /c $method " +'"'+ $target + '" \\$ip > @curdir\cache.log'
?"- 492-"
?"- 493-" ; lets wait a litle until the log file created ...
[This message has been edited by MCA (edited 15 August 2000).]
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 611 anonymous users online.
|
|
|
