中国DOS联盟

这个脚本运行时，提示“类别未授权使用”，为什么？
这几代码的功能是，显示当前机器的ip和机器名，
但是在装有vb6的机器上正常，但是在没有安装vb6的机器上，会报错，提示：类别未授权使用。
我不知为什么，有一点可以肯定，就是 mswinsck.ocx 已经注册成功了。没有问题。关键是授权问题，为何会有授权问题呢？

Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
IPAddress=WS.LocalIP
MsgBox "Local IP=" & IPAddress
MsgBox "Local IP=" & ws.localhostname

MSWINSCK.ocx也懒得找是那个了，全部都给你。

Windows Registry Editor Version 5.00





@="Licensing: Copying the keys may be a violation of established copyrights."





@="knsgigmnmngnmnigthmgpninrmumhgkgrlrk"





@="aadhgafabafajhchnbchehfambfbbachmfmb"





@="gclclcejjcmjdcccoikjlcecoioijjcjnhng"





@="gcfjdjecpchcncdjpdejijgcrdoijjfcieod"





@="mlrljgrlhltlngjlthrligklpkrhllglqlrk"





@="mcpckchcdchjcjcclidcgcgchdqdcjhcojpd"





@="kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"





@="imshohohphlmnhimuinmphmmuiminhlmsmsl"





@="gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"





@="aahakhchghkhfhaamghhbhbhkbpgfhahlfle"





@="kefeflhlhlgenelerfleheietfmflelljeqf"





@="gdjkokgdldikhdddpjkkekgknesjikdkoioh"





@="ibcbbbebqbdbciebmcobmbhifcmciibblgmf"



;

;@="mninuglgknogtgjnthmnggjgsmrmgniglish"





@="klglsejeilmereglrfkleeheqkpkelgejgqf"





@="yjrjvqkjlqqjnqkjvprqsjnjvkuknjpjtoun"





@="gifblihbhiiihbciocfbkifbqcfcdiebbiqh"





@="wjsjjjlqmjpjrjjjvpqqkqmqukypoqjquoun"





@="cchcqjejhcgcqcfjpdfcdjkckiqikchcojpd"





@="uqpqnqkjujkjjjjqwktjrjkjtkupsjnjtoun"





@="cibbcimbpihbbbbbnhdbeidiocmcbbdbgdoc"





@="mjjjccncgjijrcfjpdfjfcejpdkdkcgjojpd"





@="qqkjvqpqmqjjpqjjvpqqkqmqvkypoqjquoun"





@="mmimfflflmqmlfffrlnmofhfkgrlmmfmqkqj"





@="konhqhioohihphkouimonhqhvnwiqhhhnjti"





@="ekpkhddkjkekpdjkqemkfkldoeoefkfdjfqe"







@="gjdcfjpcmjicjcdcoihcechjlioiccechepd"





@="mgkgtgnnmnmninigthkgogggvmkhinjggnvm"









@="kmhfimlflmmfpffmsgfmhmimngtghmoflhsg"





@="mbmabptebkjcdlgtjmskjwtsdhjbmkmwtrak"



;------------------------------------------------------------------------------;

;默认Licenses



@="iplpwpnippopupiivjrioppisjsjlpiiokuj"













@="sbbcdcprktpjtapmmfdacmupasbhscddncgp"





@=hex(2):67,00,78,00,77,00,61,00,65,00,7a,00,75,00,63,00,66,00,79,00,71,00,70,\

  00,77,00,6a,00,67,00,71,00,62,00,63,00,6d,00,74,00,73,00,6e,00,63,00,75,00,\

  68,00,77,00,73,00,6e,00,79,00,68,00,69,00,6f,00,68,00,77,00,78,00,7a,00,00,\

  00





@="iokouhloohrojhhhtnooiokomiwnmohosmsl"





@="knlggnmntgggrninthpgmnngrhqhnnjnslsh"

谢谢，别的控件注册就行了，为何有些控件还需要授权呢？